home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / jui_sa.inc < prev    next >
Encoding:
Text File  |  1998-07-22  |  2.2 KB  |  144 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    òKÄEïZüiö≥é╤ô╣ï∩üj
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. jui_sa_s:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     subq.w    #8,d1
  14.     subi.w    #24,d2
  15.     tst.w    C_LR_F(a1)
  16.     bne    @f
  17.  
  18.     addi.w    #$003a,d7
  19.     move.w    d1,(a6)+
  20.     move.w    d2,(a6)+
  21.     move.w    d7,(a6)+
  22.     move.w    #$0003,(a6)+
  23.  
  24.     addi.w    #16,d2
  25.     addq.w    #1,d7
  26.     move.w    d1,(a6)+
  27.     move.w    d2,(a6)+
  28.     move.w    d7,(a6)+
  29.     move.w    #$0003,(a6)+
  30.  
  31.     addi.w    #16,d2
  32.     addq.w    #1,d7
  33.     move.w    d1,(a6)+
  34.     move.w    d2,(a6)+
  35.     move.w    d7,(a6)+
  36.     move.w    #$0003,(a6)+
  37.  
  38.     rts
  39. @@:
  40.     addi.w    #$403a,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     addi.w    #16,d2
  47.     addq.w    #1,d7
  48.     move.w    d1,(a6)+
  49.     move.w    d2,(a6)+
  50.     move.w    d7,(a6)+
  51.     move.w    #$0003,(a6)+
  52.  
  53.     addi.w    #16,d2
  54.     addq.w    #1,d7
  55.     move.w    d1,(a6)+
  56.     move.w    d2,(a6)+
  57.     move.w    d7,(a6)+
  58.     move.w    #$0003,(a6)+
  59.  
  60.     rts
  61.  
  62. jui_sa_a:
  63.     move.w    d7,d3
  64.     move.w    C_X(a1),d1
  65.     move.w    C_Y(a1),d2
  66.     subq.w    #8,d1
  67.     subi.w    #24,d2
  68.     tst.w    C_LR_F(a1)
  69.     bne    @f
  70.  
  71.     addi.w    #$003d,d7
  72.     move.w    d1,(a6)+
  73.     move.w    d2,(a6)+
  74.     move.w    d7,(a6)+
  75.     move.w    #$0003,(a6)+
  76.  
  77.     addi.w    #16,d2
  78.     addq.w    #1,d7
  79.     move.w    d1,(a6)+
  80.     move.w    d2,(a6)+
  81.     move.w    d7,(a6)+
  82.     move.w    #$0003,(a6)+
  83.  
  84.     addi.w    #16,d2
  85.     addq.w    #1,d7
  86.     move.w    d1,(a6)+
  87.     move.w    d2,(a6)+
  88.     move.w    d7,(a6)+
  89.     move.w    #$0003,(a6)+
  90.  
  91.     lea.l    CHARA_DATA(a1),a3
  92.     tst.w    C_M_F(a3)
  93.     beq    3f
  94.     move.w    C_X(a3),d1
  95.     move.w    C_Y(a3),d2
  96.     addi.w    #$0040,d3
  97.     add.w    C_ANI_WC(a3),d3
  98.     subq.w    #8,d1
  99.     subq.w    #8,d2
  100.     move.w    d1,(a6)+
  101.     move.w    d2,(a6)+
  102.     move.w    d3,(a6)+
  103.     move.w    #$0003,(a6)+
  104. 3:
  105.     rts
  106.  
  107. @@:
  108.     addi.w    #$403d,d7
  109.     move.w    d1,(a6)+
  110.     move.w    d2,(a6)+
  111.     move.w    d7,(a6)+
  112.     move.w    #$0003,(a6)+
  113.  
  114.     addi.w    #16,d2
  115.     addq.w    #1,d7
  116.     move.w    d1,(a6)+
  117.     move.w    d2,(a6)+
  118.     move.w    d7,(a6)+
  119.     move.w    #$0003,(a6)+
  120.  
  121.     addi.w    #16,d2
  122.     addq.w    #1,d7
  123.     move.w    d1,(a6)+
  124.     move.w    d2,(a6)+
  125.     move.w    d7,(a6)+
  126.     move.w    #$0003,(a6)+
  127.  
  128.     lea.l    CHARA_DATA(a1),a3
  129.     tst.w    C_M_F(a3)
  130.     beq    3f
  131.     move.w    C_X(a3),d1
  132.     move.w    C_Y(a3),d2
  133.     addi.w    #$4040,d3
  134.     add.w    C_ANI_WC(a3),d3
  135.     subq.w    #8,d1
  136.     subq.w    #8,d2
  137.     move.w    d1,(a6)+
  138.     move.w    d2,(a6)+
  139.     move.w    d3,(a6)+
  140.     move.w    #$0003,(a6)+
  141. 3:
  142.     rts
  143. *---------------------------------------
  144.